home *** CD-ROM | disk | FTP | other *** search
/ Just Call Me Internet / Just Call Me Internet.iso / com / bbs / server / octps074 / script / pd_nest.scr < prev    next >
Encoding:
Text File  |  1996-10-13  |  13.4 KB  |  618 lines
  1. /* -------------------------------------------------------------------
  2.  * NEST echomail areas including the following countrys:
  3.  *
  4.  * - The Netherlands
  5.  * - Germany
  6.  * - Italy
  7.  * - Poland
  8.  * - Scandinavian echos
  9.  *
  10.  * Possible not all mail areas are existing in your country, it's
  11.  * easy to disable them with the following #define commands.
  12.  * -------------------------------------------------------------------
  13.  * Written by Koos Kuil on 12 Oct 1996
  14.  */
  15. #define NEST_NL         /* Special Dutch NeST echos */
  16. #define NEST_GER        /* Special German NeST echos */
  17. #define NEST_ITA        /* Special Italian NeST echos */
  18. #define NEST_PL            /* Special Poland NeST echos */
  19. #define NEST_SCA        /* Special Scandinavian NeST echos */
  20.  
  21. #menulib
  22. SubMenu NEST
  23. Entry NEST.ADM[1]ADM
  24. Entry NEST.FALCON[2]FALCON
  25. Entry NEST.LOCAL[3]LOCAL
  26. Entry NEST.MISC[4]MISC
  27. Entry NEST.NET[5]NET
  28. Entry NEST.ST[6]ST
  29. Entry NEST.SUP[7]SUP
  30. Entry ----
  31. #ifdef NEST_GER
  32. Entry NEST.GER[G]GER
  33. #endif
  34. #ifdef NEST_ITA
  35. Entry NEST.ITA[I]ITA
  36. #endif
  37. #ifdef NEST_NL
  38. Entry NEST.NL[N]NL
  39. #endif
  40. #ifdef NEST_PL
  41. Entry NEST.PL[P]PL
  42. #endif
  43. #ifdef NEST_SCA
  44. Entry NEST.SCA[C]SCA
  45. #endif
  46.  
  47. Submenu NEST.ADM
  48. Entry [1]ECHO
  49. Entry [2]EST
  50. Entry [3]NEST
  51. Entry [4]UUCP_GATE
  52.  
  53. Submenu NEST.FALCON
  54. Entry [1]FACTT_FILE
  55. Entry [2]MISC
  56.  
  57. #ifdef NEST_GER
  58. Submenu NEST.GER
  59. Entry [1]MISC
  60. Entry [2]MISC.FILES
  61. Entry /Co-Sysop[3]BETA.JETMAIL
  62. #endif
  63.  
  64. Submenu NEST.MISC
  65. Entry [1]4SALE 
  66. Entry [2]COMMON
  67. Entry [3]CONSOLE
  68. Entry [4]F&SF_UK
  69. Entry [5]LEGAL
  70. Entry [6]LEISURE
  71. Entry [7]Q&A
  72. entry [8]RPG
  73.  
  74. #ifdef NEST_NL
  75. Submenu NEST.NL
  76. Entry /Co-Sysop[1]ADM
  77. Entry [2]TEST
  78. #endif
  79.  
  80. Submenu NEST.NET
  81. Entry [1]ALLFIX
  82. Entry [2]BBSADS
  83. Entry [3]COM_ADS
  84. Entry [4]NOTICE
  85. Entry [5]NOTICE.FILES
  86. Entry [6]SEE
  87. Entry [7]SEE.FNET
  88.  
  89. Submenu NEST.ST
  90. Entry [1]BBS_SW
  91. Entry NEST.ST.COMMS[2]COMMS
  92. Entry [3]CD-ROM
  93. Entry [4]DTP
  94. Entry [5]FAX
  95. Entry [6]FIDO 
  96. Entry [7]FORMAT 
  97. Entry [8]GAMES
  98. Entry [9]GFX
  99. Entry [0]HARDWARE
  100. Entry [A]MIDI
  101. Entry [C]MISC
  102. Entry [D]MULTITASK
  103. Entry NEST.ST.PROG[E]PROG
  104. Entry [G]PDREVIEWS
  105. Entry [H]USERS
  106.  
  107. Submenu NEST.ST.COMMS
  108. Entry [1]MISC
  109. Entry [2]INTERNET
  110.  
  111. Submenu NEST.ST.PROG
  112. Entry [1]ASM 
  113. Entry [2]C
  114. Entry [3]GFA
  115. Entry [4]MISC
  116.  
  117. Submenu NEST.LOCAL
  118. Entry [1]N.LOCAL.LINKS
  119.  
  120. Submenu NEST.SUP
  121. Entry [1]ASSI
  122. Entry /Co-sysop NEST.SUP.BETA[2]BETA
  123. Entry [3]BINKLEY
  124. Entry [4]IOS
  125. Entry [5]JETMAIL
  126. Entry [6]LED
  127. Entry [7]NW.DEV
  128. Entry [8]OASIS_ICE
  129. Entry [9]PARX.MODULES
  130. Entry [0]QBBS_ST
  131. Entry [A]RATSOFT
  132. Entry [C]SEMPER
  133.  
  134. Submenu NEST.SUP.BETA
  135. Entry [1]JETMAIL  
  136. Entry [2]OCTOPUS
  137. Entry [3]SEMPER
  138.  
  139. #ifdef NEST_PL
  140. Submenu NEST.PL
  141. Entry [1]ANNOUNCE 
  142. Entry [2]CHAD
  143. Entry [3]TECHNIC
  144. Entry [4]TEST
  145. #endif
  146.  
  147. #ifdef NEST_SCA
  148. Submenu NEST.SCA
  149. Entry [1]COMMON
  150. Entry [2]DK_SOFT.NEWS
  151. Entry [3]DTP
  152. Entry [4]ECHO
  153. Entry [5]FALCON
  154. Entry [6]FILES
  155. Entry [7]MIDI
  156. Entry [8]NAS
  157. Entry [9]NEWFILE
  158. Entry [0]OTHELLO
  159. Entry [A]PROGRAM
  160. Entry [C]SEE
  161. Entry [D]SEE_TNU
  162. Entry [E]TEST
  163. #endif
  164.  
  165. #ifdef NEST_ITA
  166. Submenu NEST.ITA
  167. Entry /Co-Sysop[1]ADM.COORD
  168. Entry /Co-Sysop[2]ADM.NEWFILES
  169. Entry [3]MISC.CHATTER
  170. Entry [4]PC.FOLIO
  171. Entry [5]PC.MISC
  172. Entry NEST.ITA.ST[6]ST
  173.  
  174. Submenu NEST.ITA.ST
  175. Entry [1]APPLICAZ
  176. Entry [2]CAD
  177. Entry [3]COMMS
  178. Entry [4]DEVELOPERS
  179. Entry [5]DTP
  180. Entry [6]EMULAZIONI
  181. Entry [7]GRAFICA
  182. Entry [8]HARDWARE
  183. Entry [9]MIDI
  184. Entry [0]MTX
  185. Entry [A]NETWARE
  186. Entry [C]PROGRAM
  187. Entry [D]WORKSHOP
  188. #endif
  189.  
  190. #endlib
  191.  
  192. /* -------------------------------------------------------------------
  193.  * NEST message areas (MAIN)
  194.  */
  195. :MSG_nest
  196. DrawMenu NEST        Gosub draw_ascii_msg           
  197. DoMenu NEST
  198.   SelectChoice
  199.       Case 1    Gosub MSG_nest_adm        Break
  200.       Case 2  Gosub MSG_nest_falcon   Break
  201.     Case 3    Gosub MSG_nest_local    Break
  202.     Case 4    Gosub MSG_nest_misc        Break
  203.     Case 5    Gosub MSG_nest_net        Break
  204.     Case 6    Gosub MSG_nest_st        Break
  205.     Case 7    Gosub MSG_nest_sup        Break
  206.  
  207.     /* Language dependent areas */
  208. #ifdef NEST_GER
  209.     Case G    Gosub MSG_nest_ger        Break
  210. #endif
  211. #ifdef NEST_ITA    
  212.     Case I    Gosub MSG_nest_ita        Break
  213. #endif
  214. #ifdef NEST_NL    
  215.     Case N    Gosub MSG_nest_nl        Break
  216. #endif
  217. #ifdef NEST_PL
  218.     Case P    Gosub MSG_nest_pl        Break
  219. #endif
  220. #ifdef NEST_SCA    
  221.     Case C    Gosub MSG_nest_sca        Break
  222. #endif    
  223.   EndSelect
  224. EnddoChoice MenuBarKeys
  225.  
  226. /* Remove the submenu */
  227. IfChoice CursLeft
  228.     RemoveMenu NEST
  229.     ClrChoice               
  230. Endif
  231. Return
  232.  
  233. :MSG_nest_adm
  234. DrawMenu NEST.ADM        Gosub draw_ascii_msg           
  235. DoMenu NEST.ADM
  236.   SelectChoice
  237.     Case 1    SetMsgarea N.ADM.ECHO
  238.     Case 2    SetMsgarea N.ADM.EST
  239.     Case 3    SetMsgarea N.ADM.NEST
  240.     Case 4    SetMsgarea N.ADM.UUCP_GATE
  241.     Common  Readmessages
  242.             Gosub draw_bbsinfo
  243.             DrawMenu Msgbase
  244.   EndSelect
  245. EnddoChoice MenuBarKeys
  246.  
  247. /* Remove the submenu */
  248. IfChoice CursLeft
  249.     RemoveMenu NEST.ADM
  250.     ClrChoice               
  251. Endif
  252. Return
  253.  
  254. :MSG_nest_falcon 
  255. DrawMenu NEST.FALCON        Gosub draw_ascii_msg           
  256. DoMenu NEST.FALCON
  257.   SelectChoice
  258.     Case 1    SetMsgarea N.FALCON.FACTT_FILE
  259.     Case 2    SetMsgarea N.FALCON.MISC
  260.     Common  Readmessages
  261.             Gosub draw_bbsinfo
  262.             DrawMenu Msgbase
  263.   EndSelect
  264. EnddoChoice MenuBarKeys
  265.  
  266. /* Remove the submenu */
  267. IfChoice CursLeft
  268.     RemoveMenu NEST.FALCON
  269.     ClrChoice               
  270. Endif
  271. Return
  272.  
  273. :MSG_nest_local
  274. DrawMenu NEST.LOCAL        Gosub draw_ascii_msg           
  275. DoMenu NEST.LOCAL
  276.   SelectChoice
  277.     Case 1    SetMsgarea N.LOCAL.LINKS
  278.     Common  Readmessages
  279.             Gosub draw_bbsinfo
  280.             DrawMenu Msgbase
  281.   EndSelect
  282. EnddoChoice MenuBarKeys
  283.  
  284. /* Remove the submenu */
  285. IfChoice CursLeft
  286.     RemoveMenu NEST.LOCAL
  287.     ClrChoice               
  288. Endif
  289. Return
  290.  
  291. :MSG_nest_misc
  292. DrawMenu NEST.MISC        Gosub draw_ascii_msg           
  293. DoMenu NEST.MISC
  294.   SelectChoice
  295.     Case 1    SetMsgarea N.MISC.4SALE
  296.     Case 2    SetMsgarea N.MISC.COMMON
  297.     Case 3    SetMsgarea N.MISC.CONSOLE
  298.     Case 4    SetMsgarea N.MISC.F&SF_UK
  299.     Case 5    SetMsgarea N.MISC.LEGAL
  300.     Case 6    SetMsgarea N.MISC.LEISURE
  301.     Case 7    SetMsgarea N.MISC.Q&A
  302.     Case 8    SetMsgarea N.MISC.RPG
  303.     Common  Readmessages
  304.             Gosub draw_bbsinfo
  305.             DrawMenu Msgbase
  306.   EndSelect
  307. EnddoChoice MenuBarKeys
  308.  
  309. /* Remove the submenu */
  310. IfChoice CursLeft
  311.     RemoveMenu NEST.MISC
  312.     ClrChoice               
  313. Endif
  314. Return
  315.  
  316. :MSG_nest_net
  317. DrawMenu NEST.NET        Gosub draw_ascii_msg           
  318. DoMenu NEST.NET
  319.   SelectChoice
  320.     Case 1    SetMsgarea N.NET.ALLFIX
  321.     Case 2    SetMsgarea N.NET.BBSADS
  322.     Case 3    SetMsgarea N.NET.COM_ADS
  323.     Case 4    SetMsgarea N.NET.NOTICE
  324.     Case 5    SetMsgarea N.NET.NOTICE.FILES
  325.     Case 6    SetMsgarea N.NET.SEE
  326.     Case 7    SetMsgarea N.NET.SEE.FNET
  327.     Common  Readmessages
  328.             Gosub draw_bbsinfo
  329.             DrawMenu Msgbase
  330.   EndSelect
  331. EnddoChoice MenuBarKeys
  332.  
  333. /* Remove the submenu */
  334. IfChoice CursLeft
  335.     RemoveMenu NEST.NET
  336.     ClrChoice               
  337. Endif
  338. Return
  339.  
  340. :MSG_nest_st
  341. DrawMenu NEST.ST        Gosub draw_ascii_msg           
  342. DoMenu NEST.ST
  343.   SelectChoice
  344.     Case 1    SetMsgarea N.ST.BBS_ST
  345.     Case 2    Gosub MSG_nest_st_comms        Break
  346.     Case 3    SetMsgarea N.ST.CD-ROM
  347.     Case 4    SetMsgarea N.ST.DTP
  348.     Case 5    SetMsgarea N.ST.FAX
  349.     Case 6    SetMsgarea N.ST.FIDO
  350.     Case 7  SetMsgarea N.ST.FORMAT
  351.     Case 8    SetMsgarea N.ST.GAMES
  352.     Case 9    SetMsgarea N.ST.GFX
  353.     Case 0    SetMsgarea N.ST.HARDWARE
  354.     Case A    SetMsgarea N.ST.MIDI
  355.     Case C    SetMsgarea N.ST.MISC
  356.     Case D    SetMsgarea N.ST.MULTITASK
  357.     Case E    Gosub MSG_nest_st_prog        Break
  358.     Case G    SetMsgarea N.ST.PDREVIEWS
  359.     Case H    SetMsgarea N.ST.USERS
  360.     Common  Readmessages
  361.             Gosub draw_bbsinfo
  362.             DrawMenu Msgbase
  363.   EndSelect
  364. EnddoChoice MenuBarKeys
  365.  
  366. /* Remove the submenu */
  367. IfChoice CursLeft
  368.     RemoveMenu NEST.ST
  369.     ClrChoice               
  370. Endif
  371. Return
  372.  
  373. :MSG_nest_st_comms
  374. DrawMenu NEST.ST.COMMS        Gosub draw_ascii_msg           
  375. DoMenu NEST.ST.COMMS
  376.   SelectChoice
  377.     Case 1    SetMsgarea N.ST.COMMS
  378.     Case 2  SetMsgarea N.ST.COMMS.INTERNET
  379.     Common  Readmessages
  380.             Gosub draw_bbsinfo
  381.             DrawMenu Msgbase
  382.   EndSelect
  383. EnddoChoice MenuBarKeys
  384.  
  385. /* Remove the submenu */
  386. IfChoice CursLeft
  387.     RemoveMenu NEST.ST.COMMS
  388.     ClrChoice               
  389. Endif
  390. Return
  391.  
  392. :MSG_nest_st_prog
  393. DrawMenu NEST.ST.PROG        Gosub draw_ascii_msg           
  394. DoMenu NEST.ST.PROG
  395.   SelectChoice
  396.     Case 1    SetMsgarea N.ST.PROG.ASM
  397.     Case 2    SetMsgarea N.ST.PROG.C
  398.     Case 3    SetMsgarea N.ST.PROG.GFA
  399.     Case 4  SetMsgarea N.ST.PROG
  400.     Common  Readmessages
  401.             Gosub draw_bbsinfo
  402.             DrawMenu Msgbase
  403.   EndSelect
  404. EnddoChoice MenuBarKeys
  405.  
  406. /* Remove the submenu */
  407. IfChoice CursLeft
  408.     RemoveMenu NEST.ST.PROG
  409.     ClrChoice               
  410. Endif
  411. Return
  412.  
  413. :MSG_nest_sup
  414. DrawMenu NEST.SUP        Gosub draw_ascii_msg           
  415. DoMenu NEST.SUP
  416.   SelectChoice
  417.     Case 1    SetMsgarea N.SUP.ASSI
  418.     Case 2    Gosub MSG_nest_sup_beta        Break
  419.     Case 3    SetMsgarea N.SUP.BINKLEY
  420.     Case 4    SetMsgarea N.SUP.IOS
  421.     Case 5    SetMsgarea N.SUP.JETMAIL
  422.     Case 6    SetMsgarea N.SUP.LED
  423.     Case 7    SetMsgarea N.SUP.NW.DEV
  424.     Case 8    SetMsgarea N.SUP.OASIS_ICE
  425.     Case 9    SetMsgarea N.SUP.PARX.MODULES
  426.     Case 0    SetMsgarea N.SUP.QBBS_ST
  427.     Case A    SetMsgarea N.SUP.RATSOFT
  428.     Case C    SetMsgarea N.SUP.SEMPER
  429.     Common  Readmessages
  430.             Gosub draw_bbsinfo
  431.             DrawMenu Msgbase
  432.   EndSelect
  433. EnddoChoice MenuBarKeys
  434.  
  435. /* Remove the submenu */
  436. IfChoice CursLeft
  437.     RemoveMenu NEST.SUP
  438.     ClrChoice               
  439. Endif
  440. Return
  441.  
  442. :MSG_nest_sup_beta
  443. DrawMenu NEST.SUP.BETA        Gosub draw_ascii_msg           
  444. DoMenu NEST.SUP.BETA
  445.   SelectChoice
  446.     Case 1    SetMsgarea N.SUP.BETA.JETMAIL
  447.     Case 2    SetMsgarea N.SUP.BETA.OCTOPUS
  448.     Case 3    SetMsgarea N.SUP.BETA.SEMPER
  449.     Common  Readmessages
  450.             Gosub draw_bbsinfo
  451.             DrawMenu Msgbase
  452.   EndSelect
  453. EnddoChoice MenuBarKeys
  454.  
  455. /* Remove the submenu */
  456. IfChoice CursLeft
  457.     RemoveMenu NEST.SUP.BETA
  458.     ClrChoice               
  459. Endif
  460. Return
  461.  
  462. #ifdef NEST_GER
  463. :MSG_nest_ger
  464. DrawMenu NEST.GER        Gosub draw_ascii_msg           
  465. DoMenu NEST.GER
  466.   SelectChoice
  467.     Case 1    SetMsgarea N.GER.MISC
  468.     Case 2    SetMsgarea N.GER.MISC.FILES
  469.     Case 3    SetMsgarea N.GER.BETA.JETMAIL
  470.     Common  Readmessages
  471.             Gosub draw_bbsinfo
  472.             DrawMenu Msgbase
  473.   EndSelect
  474. EnddoChoice MenuBarKeys
  475.  
  476. /* Remove the submenu */
  477. IfChoice CursLeft
  478.     RemoveMenu NEST.GER
  479.     ClrChoice               
  480. Endif
  481. Return
  482. #endif
  483.  
  484. #ifdef NEST_ITA
  485. :MSG_nest_ita
  486. DrawMenu NEST.ITA        Gosub draw_ascii_msg           
  487. DoMenu NEST.ITA
  488.   SelectChoice
  489.     Case 1    SetMsgarea N.ITA.ADM.COORD
  490.     Case 2    SetMsgarea N.ITA.ADM.NEWFILES
  491.     Case 3    SetMsgarea N.ITA.MISC.CHATTER
  492.     Case 4    SetMsgarea N.ITA.PC.FOLIO
  493.     Case 5    SetMsgarea N.ITA.PC.MISC
  494.     Case 6    Gosub MSG_nest_ita_st        Break
  495.     Common  Readmessages
  496.             Gosub draw_bbsinfo
  497.             DrawMenu Msgbase
  498.   EndSelect
  499. EnddoChoice MenuBarKeys
  500.  
  501. /* Remove the submenu */
  502. IfChoice CursLeft
  503.     RemoveMenu NEST.ITA
  504.     ClrChoice               
  505. Endif
  506. Return
  507. #endif
  508.  
  509. #ifdef NEST_ITA
  510. :MSG_nest_ita_st
  511. DrawMenu NEST.ITA.ST    Gosub draw_ascii_msg           
  512. DoMenu NEST.ITA.ST
  513.   SelectChoice
  514.     Case 1    SetMsgarea N.ITA.ST.APPLICAZ
  515.     Case 2    SetMsgarea N.ITA.ST.CAD
  516.     Case 3    SetMsgarea N.ITA.ST.COMMS
  517.     Case 4    SetMsgarea N.ITA.ST.DEVELOPERS
  518.     Case 5    SetMsgarea N.ITA.ST.DTP
  519.     Case 6    SetMsgarea N.ITA.ST.EMULAZIONI
  520.     Case 7    SetMsgarea N.ITA.ST.GRAFICA
  521.     Case 8    SetMsgarea N.ITA.ST.HARDWARE
  522.     Case 9    SetMsgarea N.ITA.ST.MIDI    
  523.     Case 0    SetMsgarea N.ITA.ST.MTX
  524.     Case A    SetMsgarea N.ITA.ST.NETWARE
  525.     Case C    SetMsgarea N.ITA.ST.PROGRAM
  526.     Case D    SetMsgarea N.ITA.ST.WORKSHOP
  527.     Common  Readmessages
  528.             Gosub draw_bbsinfo
  529.             DrawMenu Msgbase
  530.   EndSelect
  531. EnddoChoice MenuBarKeys
  532.  
  533. /* Remove the submenu */
  534. IfChoice CursLeft
  535.     RemoveMenu NEST.ITA.ST
  536.     ClrChoice               
  537. Endif
  538. Return
  539. #endif
  540.  
  541. #ifdef NEST_NL
  542. :MSG_nest_nl
  543. DrawMenu NEST.NL        Gosub draw_ascii_msg           
  544. DoMenu NEST.NL
  545.   SelectChoice
  546.     Case 1    SetMsgarea N.NL.ADM.ECHO
  547.     Case 2    SetMsgarea N.NL.TEST
  548.     Common  Readmessages
  549.             Gosub draw_bbsinfo
  550.             DrawMenu Msgbase
  551.   EndSelect
  552. EnddoChoice MenuBarKeys
  553.  
  554. /* Remove the submenu */
  555. IfChoice CursLeft
  556.     RemoveMenu NEST.NL
  557.     ClrChoice               
  558. Endif
  559. Return
  560. #endif
  561.  
  562. #ifdef NEST_PL
  563. :MSG_nest_pl
  564. DrawMenu NEST.PL        Gosub draw_ascii_msg           
  565. DoMenu NEST.PL
  566.   SelectChoice
  567.     Case 1    SetMsgarea N.PL.ANNOUNCE
  568.     Case 2    SetMsgarea N.PL.CHAD
  569.     Case 3    SetMsgarea N.PL.TECHNIC
  570.     Case 4    SetMsgarea N.PL.TEST    
  571.     Common  Readmessages
  572.             Gosub draw_bbsinfo
  573.             DrawMenu Msgbase
  574.   EndSelect
  575. EnddoChoice MenuBarKeys
  576.  
  577. /* Remove the submenu */
  578. IfChoice CursLeft
  579.     RemoveMenu NEST.PL
  580.     ClrChoice               
  581. Endif
  582. Return
  583. #endif
  584.  
  585. #ifdef NEST_SCA
  586. :MSG_nest_sca
  587. DrawMenu NEST.SCA        Gosub draw_ascii_msg           
  588. DoMenu NEST.SCA
  589.   SelectChoice
  590.     Case 1  SetMsgarea N.SCA.COMMON
  591.     Case 2  SetMsgarea N.SCA.DK_SOFT.NEWS
  592.     Case 3  SetMsgarea N.SCA.DTP
  593.     Case 4  SetMsgarea N.SCA.ECHO
  594.     Case 5  SetMsgarea N.SCA.FALCON
  595.     Case 6  SetMsgarea N.SCA.FILES
  596.     Case 7  SetMsgarea N.SCA.MIDI
  597.     Case 8  SetMsgarea N.SCA.NAS
  598.     Case 9  SetMsgarea N.SCA.NEWFILE
  599.     Case 0  SetMsgarea N.SCA.OTHELLO
  600.     Case A  SetMsgarea N.SCA.PROGRAM
  601.     Case C  SetMsgarea N.SCA.SEE
  602.     Case D  SetMsgarea N.SCA.SEE_TNU
  603.     Case E  SetMsgarea N.SCA.TEST
  604.     Common  Readmessages
  605.             Gosub draw_bbsinfo
  606.             DrawMenu Msgbase
  607.   EndSelect
  608. EnddoChoice MenuBarKeys
  609.  
  610. /* Remove the submenu */
  611. IfChoice CursLeft
  612.     RemoveMenu NEST.SCA
  613.     ClrChoice               
  614. Endif
  615. Return
  616. #endif
  617.  
  618.